home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / jul94 / srfig12b.gif < prev    next >
Graphics Interchange Format  |  1996-07-02  |  20.1 KB  |  517x361  |  4-bit (12 colors)
   ocr: - SOLIVIEW-Indexbuttonspushbuton" method pushButton(uar eventinfo Event) var Sq1string String anstbl String endvar if isAssigned(TableSelected) and Tableselected € : then anstbl = ":PRIV:Sqlindex" if strdbtype = "SYBASE" then SqiString = "sp_ helpindex : - : Tablelist.list.value + : ExecutesqLTable(sgistring,Strabnane,Imasrassword,anstbl) else tbl.attach("z"estrdbnane-a"etableselected) tbl.enumindexstruct(anstbl) endif if tu.open(anstbl, winstyledefault,100,100,5500,4000) then Setrableviewattributes() t.settitief"Indexes for Table: : Tableselected) tv.wait() tu.close() endif endif endMethod Ed ...